home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / meltdown.lha / MISC.SOURCE / 1Pixel.s next >
Encoding:
Text File  |  1988-07-19  |  5.2 KB  |  178 lines
  1. *****************************************************************************
  2.  
  3.                 ******************
  4.                 * 1 Pixel Copper *
  5.                 *      Code      *    
  6.                 *       By       *
  7.                 *     Slaine     *
  8.                 *     Arena!     *
  9.                 ******************
  10.  
  11. *****************************************************************************
  12.     Incdir    df1:
  13.     Include    source/Macro
  14. *****************************************************************************
  15.     Chip
  16. CopCrea    =    $60000
  17. *****************************************************************************
  18.     Pos
  19.     Kill
  20. *****************************************************************************
  21.     Lea    Custom,A5
  22.     Move.l    #Copper,Cop1lch(a5)            ; Init Copper
  23. *****************************************************************************
  24.     Move.l    #Pic1x,D0                ; Init Bitmaps
  25.     PlaneOn    D0,Bit1l+2,Bit1h+2
  26.     Add.w    #88,D0
  27.     PlaneOn    D0,Bit2l+2,Bit2h+2
  28.     Add.w    #88,D0
  29.     PlaneOn    D0,Bit3l+2,Bit3h+2
  30.     Add.w    #88,D0
  31.     PlaneOn    D0,Bit4l+2,Bit4h+2
  32.     Add.w    #88,D0
  33.     PlaneOn    D0,Bit5l+2,Bit5h+2
  34. *****************************************************************************
  35.     Bsr    FillCop
  36. *****************************************************************************
  37. MainLoop
  38.     Pos
  39.     Bsr    CopSin
  40.     TstMice    MainLoop                ; Wait For Mouse
  41. *****************************************************************************
  42.     Heal
  43.     Clr.l    d0
  44.     Rts
  45. *****************************************************************************
  46. FillCop                            ; Creat A Copper
  47.     Lea    CopCrea,A0
  48.     Move.l    #260-1,D7
  49.     Move.l    #$2809fffe,d0
  50. CreatLoop
  51.     Move.l    d0,(a0)+
  52. A    Set    $0182
  53.     Rept    31
  54.     Move.w    #a,(a0)+
  55.     Clr.w    (a0)+
  56. A    Set    A+2
  57.     Endr
  58.     Add.l    #$01000000,D0
  59.     Dbf    D7,CreatLoop
  60.     Move.l    #$ff09fffe,(a0)+
  61.     Move.l    #Copper,d0
  62.     Move.w    #Cop1lcl,(a0)+
  63.     Move.w    d0,(a0)+
  64.     Swap    D0
  65.     Move.w    #Cop1lch,(a0)+
  66.     Move.w    d0,(a0)+
  67.     Move.l    #$fffffffe,(a0)+
  68.     Rts
  69. *****************************************************************************
  70. CopSin
  71.     Move.l    #$09f00000,Bltcon0(a5)
  72.     Move.w    #126,Bltdmod(a5)
  73.     Move.w    #000,Bltamod(a5)
  74.     Move.l    #-1,Bltafwm(a5)
  75.     Move.w    #31-1,D7        ; Number Of Colours
  76.     Move.l    #CopCrea+6,D2
  77.     Move.w    #260*64+1,D3
  78.     Lea    Form1,A0
  79.     Lea    Sin1,A1
  80.     Move.w    #2,D4
  81.     Move.w    #$1fe,d5
  82. CopLoop
  83.     Move.l    (a0)+,D0
  84.     Move.w    (a0),d1
  85.     Add.w    d4,(a0)
  86.     And.w    d5,(a0)+
  87.     Add.w    (a1,d1),d0
  88.     Move.l    D0,Bltapth(a5)
  89.     Move.l    D2,Bltdpth(a5)
  90.     Move.w    D3,Bltsize(a5)
  91.     Add.w    #4,D2
  92.     Dbf    D7,CopLoop
  93.     Rts
  94. *****************************************************************************
  95. Copper
  96.     Cmove    $2871,Diwstrt
  97.     Cmove    $2cd1,Diwstop
  98.     Cmove    $0028,Ddfstrt
  99.     Cmove    $00d0,Ddfstop
  100.     Cmove    $00bb,Bplcon1
  101.     Cmove    -0044,Bpl1mod            
  102.     Cmove    -0044,Bpl2mod
  103.     Cmove    $5200,Bplcon0
  104.     Cmove    $0000,Color00
  105. Bit1l    Cmove    $0000,Bpl1ptl
  106. Bit1h    Cmove    $0000,Bpl1pth
  107. Bit2l    Cmove    $0000,Bpl2ptl
  108. Bit2h    Cmove    $0000,Bpl2pth
  109. Bit3l    Cmove    $0000,Bpl3ptl
  110. Bit3h    Cmove    $0000,Bpl3pth
  111. Bit4l    Cmove    $0000,Bpl4ptl
  112. Bit4h    Cmove    $0000,Bpl4pth
  113. Bit5l    Cmove    $0000,Bpl5ptl
  114. Bit5h    Cmove    $0000,Bpl5pth
  115.     Cmove    $0006,Cop1lch
  116.     Cmove    $0000,COp1lcl
  117.     EndCop
  118. *****************************************************************************
  119. Pic1x    Incbin    Gfx/Wig1.bm
  120. *****************************************************************************
  121. ColPat1
  122.     Rept    7
  123.     Dc.w    $f00,$f01,$f02,$f03,$f04
  124.     Dc.w    $f05,$f06,$f07,$f08,$f09,$f0a,$f0b,$f0c,$f0d,$f0e
  125.     Dc.w    $f0f,$e1f,$d2f,$c3f,$b4f,$a5f,$96f,$87f,$78f,$69f
  126.     Dc.w    $5af,$4bf,$3cf,$2df,$1ef,$0ff,$1fe,$2fd,$3fc,$4fb
  127.     Dc.w    $5fa,$6f9,$7f8,$8f7,$9f6,$af5,$bf4,$cf3,$df2,$ef1
  128.     Dc.w    $ff0,$ff1,$ff2,$ff3,$ff4,$ff5,$ff6,$ff7,$ff8,$ff9
  129.     Dc.w    $ffa,$ffb,$ffc,$ffd,$ffe,$fff,$fee,$fdd,$fcc,$fbb
  130.     Dc.w    $faa,$f99,$f88,$f77,$f66,$f55,$f44,$f33,$f22,$f11
  131.     Endr
  132. *****************************************************************************
  133. Form1
  134. A    Set    0
  135.     Rept    31
  136.     Dc.l    ColPat1
  137.     Dc.w    (A&$1fe)
  138. A    Set    a+8
  139.     Endr
  140. *****************************************************************************
  141. Sin1
  142.     Rept    2
  143.     dc.w    100*2,100*2,100*2,100*2,100*2,100*2,99*2,99*2
  144.     dc.w    99*2,99*2,99*2,98*2,98*2,97*2,97*2,97*2
  145.     dc.w    96*2,96*2,95*2,95*2,94*2,94*2,93*2,92*2
  146.     dc.w    92*2,91*2,90*2,89*2,89*2,88*2,87*2,86*2
  147.     dc.w    85*2,84*2,84*2,83*2,82*2,81*2,80*2,79*2
  148.     dc.w    78*2,77*2,76*2,75*2,74*2,72*2,71*2,70*2
  149.     dc.w    69*2,68*2,67*2,66*2,65*2,63*2,62*2,61*2
  150.     dc.w    60*2,59*2,57*2,56*2,55*2,54*2,52*2,51*2
  151.     dc.w    50*2,49*2,48*2,46*2,45*2,44*2,43*2,41*2
  152.     dc.w    40*2,39*2,38*2,37*2,35*2,34*2,33*2,32*2
  153.     dc.w    31*2,30*2,29*2,28*2,26*2,25*2,24*2,23*2
  154.     dc.w    22*2,21*2,20*2,19*2,18*2,17*2,16*2,16*2
  155.     dc.w    15*2,14*2,13*2,12*2,11*2,11*2,10*2,9*2
  156.     dc.w    8*2,8*2,7*2,6*2,6*2,5*2,5*2,4*2
  157.     dc.w    4*2,3*2,3*2,3*2,2*2,2*2,1*2,1*2
  158.     dc.w    1*2,1*2,1*2,0*2,0*2,0*2,0*2,0*2
  159.     dc.w    0*2,0*2,0*2,0*2,0*2,0*2,1*2,1*2
  160.     dc.w    1*2,1*2,1*2,2*2,2*2,3*2,3*2,3*2
  161.     dc.w    4*2,4*2,5*2,5*2,6*2,6*2,7*2,8*2
  162.     dc.w    8*2,9*2,10*2,11*2,11*2,12*2,13*2,14*2
  163.     dc.w    15*2,16*2,16*2,17*2,18*2,19*2,20*2,21*2
  164.     dc.w    22*2,23*2,24*2,25*2,26*2,28*2,29*2,30*2
  165.     dc.w    31*2,32*2,33*2,34*2,35*2,37*2,38*2,39*2
  166.     dc.w    40*2,41*2,43*2,44*2,45*2,46*2,48*2,49*2
  167.     dc.w    50*2,51*2,52*2,54*2,55*2,56*2,57*2,59*2
  168.     dc.w    60*2,61*2,62*2,63*2,65*2,66*2,67*2,68*2
  169.     dc.w    69*2,70*2,71*2,72*2,74*2,75*2,76*2,77*2
  170.     dc.w    78*2,79*2,80*2,81*2,82*2,83*2,84*2,84*2
  171.     dc.w    85*2,86*2,87*2,88*2,89*2,89*2,90*2,91*2
  172.     dc.w    92*2,92*2,93*2,94*2,94*2,95*2,95*2,96*2
  173.     dc.w    96*2,97*2,97*2,97*2,98*2,98*2,99*2,99*2
  174.     dc.w    99*2,99*2,99*2,100*2,100*2,100*2,100*2,100*2
  175.     Endr    
  176. *****************************************************************************
  177.  
  178.